home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / KEY.LSP < prev    next >
Text File  |  1992-09-13  |  10KB  |  257 lines
  1. ;BEGIN DEFINITION OF KEY.LSP
  2. ;              THIS PROGRAM DEFINES SEVERAL KEYS AS AN ALTERNATIVE TO
  3. ;              SOME AUTOCAD COMMANDS.
  4. ;
  5. (defun C:A()(setvar"cmdecho"1)
  6. (menucmd"S=ARC")
  7. (setq oer *error* *error* err2)(command ".ARC"))
  8. (defun C:AR()(setvar"cmdecho"1)
  9. (setq oer *error* *error* err2)(command ".ARRAY""au"))
  10. (defun C:B()(setvar"cmdecho"1)
  11. (menucmd"S=BREAK")
  12. (setq oer *error* *error* err2)(command".BREAK" PAUSE "F"))
  13. (defun C:BL()(setvar"cmdecho"1)
  14. (menucmd"S=BLOCK")
  15. (setq oer *error* *error* err2)(command ".BLOCK"))
  16. (defun C:C()(setvar"cmdecho"1)
  17. (menucmd"S=COPY")
  18. (setq oer *error* *error* err2)(command ".COPY""AU"))
  19. (defun C:bp()(setvar"cmdecho"1)
  20. (load"bp"))
  21. (defun C:CF()(setvar"cmdecho"1)
  22. (setq oer *error* *error* err2)(command ".Chamfer"))
  23. (defun C:CG()(setvar"cmdecho"1)
  24. (setq oer *error* *error* err2)(command".CHANGE"))
  25. (defun C:CP()(setvar"cmdecho"1)
  26. (setq oer *error* *error* err2)(command".CHPROP"))
  27. (defun C:CW()(setvar"cmdecho"1)
  28. (load"cw"))
  29. (defun C:EE()(setvar"cmdecho"1)
  30. (load"EE"))
  31. (defun C:CH()(setvar"cmdecho"1)
  32. (SETQ SS1(SSGET))
  33. (SETQ NEWL(GETSTRING "\nNew Drawing Layer : "))
  34. (setq oer *error* *error* err2)(command ".CHANGE" SS1 "" "L" NEWL))
  35. (defun c:col()(setvar"cmdecho"1)
  36. (load"col"))
  37. (defun C:CR()(setvar"cmdecho"1)
  38. (menucmd"S=CIRCLE")
  39. (setq oer *error* *error* err2)(command".CIRCLE"))
  40. (defun C:CR2()(setvar"cmdecho"1)
  41. (setq oer *error* *error* err2)(command".CIRCLE""2P"))
  42. (defun C:D()(setvar"cmdecho"1)
  43. (setq oer *error* *error* err2)(command ".DIST"))
  44. (defun c:DC()(setvar"cmdecho"1)
  45. (setq oer *error* *error* err2)(command".DTEXT""c"))
  46. (defun C:vd()(setvar"cmdecho"1)
  47. (setq oer *error* *error* err2)(command".dim""vert"))
  48. (defun C:hd()(setvar"cmdecho"1)
  49. (setq oer *error* *error* err2)(command".dim" "horiz"))
  50. (defun C:DD()(setvar"cmdecho"1)
  51. (setq oer *error* *error* err2)(command".DDATTE"))
  52. (defun C:DE()(setvar"cmdecho"1)
  53. (setq oer *error* *error* err2)(command".DDEMODES"))
  54. (defun c:du()(setvar"cmdecho"1)
  55. (load"duct"))
  56. (defun c:et()(setvar"cmdecho"1)
  57. (load"et"))
  58. (defun c:fl()(setvar"cmdecho"1)
  59. (load"fl"))
  60. (defun c:fw()(setvar"cmdecho"1)
  61. (load"fw"))
  62. (defun c:gl()(setvar"cmdecho"1)
  63. (load"gl"))
  64. (defun c:lt()(setvar"cmdecho"1)
  65. (load"lt"))
  66. (defun C:ML()(setvar"cmdecho"1)
  67. (setq oer *error* *error* err2)(command".DDLMODES"))
  68. (defun C:td()(setvar"cmdecho"1)
  69. (menucmd"S=TEXT")
  70. (setq oer *error* *error* err2)(command".DTEXT"))
  71. (defun C:E()(setvar"cmdecho"1)
  72. (menucmd"S=ERASE")
  73. (setq oer *error* *error* err2)(command ".ERASE""AU"))
  74. (defun C:EL()(setvar"cmdecho"1)
  75. (setq oer *error* *error* err2)(command ".ERASE""L"""))
  76. (defun C:EX()(setvar"cmdecho"1)
  77. (menucmd"S=EXTEND")
  78. (setq oer *error* *error* err2)(command ".EXTEND""au"))
  79. (defun C:FR()(setvar"cmdecho"1)
  80. (setq oer *error* *error* err2)(command".FILLET""R" "0" "FILLET"))
  81. (defun C:F()(setvar"cmdecho"1)
  82. (setq oer *error* *error* err2)(command".FILLET"))
  83. (defun C:GN()(setvar"cmdecho"1)
  84. (setq oer *error* *error* err2)(command".POLYGON"))
  85. (defun C:Gf()(setvar"cmdecho"1)
  86. (setq oer *error* *error* err2)(load"gf"))
  87. (defun c:grd()(setvar"cmdecho"1)
  88. (load"grd"))
  89. (defun C:H()(setvar"cmdecho"1)
  90. (menucmd"S=HATCH")
  91. (setq oer *error* *error* err2)(command".HATCH"))
  92. (defun C:I()(setvar"cmdecho"1)
  93. (menucmd"S=INSERT")
  94. (setq oer *error* *error* err2)(command".INSERT"))
  95. (defun C:ib()(setvar"cmdecho"1)
  96. (setq pt(cadr(entsel"\nSelect Block:")))
  97. (setq e1(ssget pt)) 
  98. (setq e2 (entget (ssname e1 0)))
  99. (setq blname (cdr(assoc 2 e2)))
  100. (setq oer *error* *error* err2)(command ".insert" blname))
  101. (defun c:ky()(setvar"cmdecho"1)
  102. (load"ky"))
  103. (defun c:ld()(setvar"cmdecho"1)
  104. (load"ld"))
  105. (defun C:L()(setvar"cmdecho"1)
  106. (menucmd"S=LINE")
  107. (setq oer *error* *error* err2)(command".LINE"))
  108. (defun C:LS()(setvar"cmdecho"1)
  109. (menucmd"S=LIST")
  110. (setq oer *error* *error* err2)(command".LIST"))
  111. (defun mpl()
  112. (setq pt1(getpoint"\nPick First Point: "))
  113. (setq pt2(getpoint"\nPick Second Point: "))
  114. (polar pt1(angle pt1 pt2)(/(distance pt1 pt2)2)))
  115. (defun c:lmp()
  116. (setq pt1(getpoint"\nPick First Point:"))
  117. (setq pt2(getpoint"\nPick Second Point:"))
  118. (command"line"(polar pt1(angle pt1 pt2)(/(distance pt1 pt2)2))))
  119. (defun C:M()(setvar"cmdecho"1)
  120. (menucmd"S=MOVE")
  121. (setq oer *error* *error* err2)(command".MOVE""AU"))
  122. (defun C:MM()(setvar"cmdecho"1)
  123. (menucmd"S=MIRROR")
  124. (setq oer *error* *error* err2)(command".MIRROR""AU"))
  125. (defun C:MTL()(setvar"cmdecho"1)
  126. (setq oer *error* *error* err2)(LOAD"MTL"))
  127. (defun C:O()(setvar"cmdecho"1)
  128. (menucmd"S=OFFSET")
  129. (setq OD(GETSTRING "\nOFFSET DISTANCE: "))
  130. (setq oer *error* *error* err2)(command".OFFSET" OD))
  131. (defun c:CNS()
  132. (setq oer *error* *error* err2)(load"CNS"))
  133. (defun c:DNS()
  134. (setq oer *error* *error* err2)(load"DNS"))
  135. (defun C:OO()(setvar"cmdecho"1)
  136. (setq oer *error* *error* err2)(command".OSNAP""NONE"))
  137. (defun c:op()(setvar"cmdecho"1)
  138. (load"op"))
  139. (defun c:oh()(setvar"cmdecho"1)
  140. (load"oh"))
  141. (defun C:PL()(setvar"cmdecho"1)
  142. (menucmd"S=PLINE")
  143. (setq oer *error* *error* err2)(command".PLINE"))
  144. (defun C:P()(setvar"cmdecho"1)
  145. (setq oer *error* *error* err2)(command".PAN"))
  146. (defun C:PE()(setvar"cmdecho"1)
  147. (menucmd"S=PO")
  148. (setq oer *error* *error* err2)(command".PEDIT"))
  149. (defun C:Q()(setvar"cmdecho"1)
  150. (setq oer *error* *error* err2)(command".QUIT"))
  151. (defun C:R()(setvar"cmdecho"1)
  152. (menucmd"S=ROTATE")
  153. (setq oer *error* *error* err2)(command".ROTATE""AU"))
  154. (defun c:rc (/ pt1 pt2 pt3 pt4) (graphscr)
  155. (setq pt1 (getpoint "\nPICK First Corner on Rectangle  "))
  156. (setq pt3 (getcorner pt1 "\nPICK Opposite Corner of Rectangle or enter size: "))
  157. (setq pt2 (list (car pt1) (cadr pt3)))
  158. (setq pt4 (list (car pt3) (cadr pt1)))
  159. (setq oer *error* *error* err2)(command ".Pline" pt1 "w" "0" "" pt2 pt3 pt4 "c"))
  160. (defun C:RD()(setvar"cmdecho"1)
  161. (setq oer *error* *error* err2)(command".REDRAW"))
  162. (defun C:rw()(setvar"cmdecho"1)
  163. (load"rw"))
  164. (defun C:ST()(setvar"cmdecho"1)
  165. (setq oer *error* *error* err2)(command ".STRETCH""C"))
  166. (defun C:SA()(setvar"cmdecho"1)
  167. (setq oer *error* *error* err2)(command ".SAVE"))
  168. (defun C:SE()(setvar"cmdecho"1)
  169. (menucmd"S=LAYER")
  170. (setq oer *error* *error* err2)(command ".LAYER""SET" pause ""))
  171. (defun C:SC()(setvar"cmdecho"1)
  172. (menucmd"S=SCALE")
  173. (setq oer *error* *error* err2)(command ".SCALE""AU"))
  174. (defun c:ss()(setvar"cmdecho"1)
  175. (setq oer *error* *error* err2)(command".STATUS"))
  176. (defun C:T()(setvar"cmdecho"1)
  177. (menucmd"S=TRIM")
  178. (setq oer *error* *error* err2)(command ".TRIM""au"))
  179. (defun c:tc()(setvar"cmdecho"1)
  180. (load"tc"))
  181. (defun C:TE()(setvar"cmdecho"1)
  182. (setq oer *error* *error* err2)(command ".TEXT"))
  183. (defun C:UN()(setvar"cmdecho"1)
  184. (setq oer *error* *error* err2)(command".UNITS"))
  185. (defun C:V()(setvar"cmdecho"1)
  186. (setq oer *error* *error* err2)(command".DIVIDE"))
  187. (defun c:wc()(setvar"cmdecho"1)
  188. (load"wc"))
  189. (defun c:wl()(setvar"cmdecho"1)
  190. (load"wl"))
  191. (defun C:X()(setvar"cmdecho"1)
  192. (setq oer *error* *error* err2)(command".EXPLODE"))
  193. (defun C:ZA()(setvar"cmdecho"1)
  194. (setq oer *error* *error* err2)(command".REGENAUTO""ON")
  195. (setq oer *error* *error* err2)(command".ZOOM""A""SAVE"""))
  196. (defun C:ZC()(setvar"cmdecho"1)
  197. (SETQ CP1(GETPOINT "\nCenter point: "))
  198. (setq oer *error* *error* err2)(command".ZOOM""C" CP1 ""))
  199. (defun C:ZD()(setvar"cmdecho"1)
  200. (setq oer *error* *error* err2)(command".ZOOM""D"))
  201. (defun C:ZP()(setvar"cmdecho"1)
  202. (setq oer *error* *error* err2)(command".ZOOM""P"))
  203. (defun C:ZW()(setvar"cmdecho"1)
  204. (setq oer *error* *error* err2)(command".ZOOM""W"))
  205. (defun C:Z5()(setvar"cmdecho"1)
  206. (setq oer *error* *error* err2)(command".ZOOM"".5X"))
  207. (defun C:Z7()(setvar"cmdecho"1)
  208. (setq oer *error* *error* err2)(command".ZOOM"".7X"))
  209. (defun C:Z9()(setvar"cmdecho"1)
  210. (setq oer *error* *error* err2)(command".ZOOM"".9X"))
  211. (defun C:W()(setvar"cmdecho"1)
  212. (menucmd"S=WBLOCK")
  213. (setq oer *error* *error* err2)(command ".WBLOCK"))
  214. (defun C:1()(setvar"cmdecho"1)
  215. (setq oer *error* *error* err2)(command ".OFFSET""1"))
  216. (defun C:2()(setvar"cmdecho"1)
  217. (setq oer *error* *error* err2)(command ".OFFSET""2"))
  218. (defun C:225()(setvar"cmdecho"1)
  219. (setq oer *error* *error* err2)(command ".OFFSET""2.25"))
  220. (defun C:4()(setvar"cmdecho"1)
  221. (setq oer *error* *error* err2)(command ".OFFSET""4"))
  222. (defun C:45()(setvar"cmdecho"1)
  223. (setq oer *error* *error* err2)(command ".OFFSET""4.5"))
  224. (defun C:6()(setvar"cmdecho"1)
  225. (setq oer *error* *error* err2)(command ".OFFSET""6"))
  226. (defun C:8()(setvar"cmdecho"1)
  227. (setq oer *error* *error* err2)(command ".OFFSET""8"))
  228. (defun C:10()(setvar"cmdecho"1)
  229. (setq oer *error* *error* err2)(command ".OFFSET""10"))
  230. (defun C:12()(setvar"cmdecho"1)
  231. (setq oer *error* *error* err2)(command ".OFFSET""12"))
  232. (defun C:16()(setvar"cmdecho"1)
  233. (setq oer *error* *error* err2)(command ".OFFSET""16"))
  234. (defun C:18()(setvar"cmdecho"1)
  235. (setq oer *error* *error* err2)(command ".OFFSET""18"))
  236. (defun C:24()(setvar"cmdecho"1)
  237. (setq oer *error* *error* err2)(command ".OFFSET""24"))
  238. (defun C:30()(setvar"cmdecho"1)
  239. (setq oer *error* *error* err2)(command ".OFFSET""30"))
  240. (defun C:36()(setvar"cmdecho"1)
  241. (setq oer *error* *error* err2)(command ".OFFSET""36"))
  242. (defun C:48()(setvar"cmdecho"1)
  243. (setq oer *error* *error* err2)(command ".OFFSET""48"))
  244. ;
  245. ; EOF  KEY.LSP
  246. ;
  247. (princ ".........loaded")
  248. (princ "\nPlease standby........Loading zoom utilities.")
  249. (load"zq")
  250. (load"lp")
  251. (princ "\n")
  252. (princ "\n                 ******* Copyright 1992, Patrick J. McKee ******")
  253. (princ "\n                 ********** Version 1.02, Power Key tm *********")
  254. (princ "\n")
  255. (princ "\nPower Key...........")
  256. (princ)
  257.